Public Property OvenStatus() As Integer
  ' Cel: uzyska biecy stan piekarnika 
  '      0 = piekarnik wyczony, nie zero = piekarnik wczony
  Get
    Return mOvenStatus
  End Get
  ' Cel: zmieni stan piekarnika. Zakadamy, e  
  '      Value jest dan temperatur.
  '      Value = 0 oznacza, e piekarnik jest 
  '      wyczony. Kada inna warto wskazuje 
  '      podan warto temperatury
  Set(ByVal Value As Integer) ' Wcz lub wycz piekarnik 
    Dim Flag As Integer

    If Value <> OVENOFF Then
      mOvenStatus = OVENON    ' Piekarnik jest teraz wczony 
    Else
      mOvenStatus = OVENOFF   ' Piekarnik jest teraz wyczony
    End If
    Flag = Bake(Value)

  End Set
End Property
